home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
recent
/
iib122.lha
/
IIB
/
Threads
/
Additional
/
IARexx.lha
/
SpiralPath3.irx
< prev
next >
Wrap
Text File
|
1997-09-18
|
551b
|
45 lines
/* */
address 'Imagine.1'
displayrexxptr on
call addlib('rexxmathlib.library',0,-30,0)
call addlib('rexxreqtools.library',0,-30,0)
pi = 3.14159
do i=0 to 5
addaxis
pick
attrib.objectname = 'SP.'i
x = 50 * cos(2 * pi * i / 3)
y = 50 * sin(2 * pi * i / 3)
z= 10 * i
angle = 120 * i
transform_position x y z
transforma_alignment 0 0 angle
setattributes objectname
end
addaxis
unpick all
groupmode
/* make the path*/
multipickon
do i = 0 to 5
pick 'SP.'i
end
multipickoff
makepath
displayrexxptr off
exit